@days = qw/Mon Tue Wed Thu Fri Sat Sun/;

@weekdays = @days[3,4,5];

print "@weekdays\n";

@weekdays_2 = @days[3..5];

print "@weekdays_2\n";

#合并数组
@odd = (1, 3, 5);
@even = (2, 4, 6);

@numbers = (@odd, @even);

print "numbers = @numbers\n";

#选择指定数量的元素

$var = (1,2,3,4,5,6)[4];

print "var id :",$var,"\n";

@list = (1,2,3,4,5,6,7,8)[1..3];

print @list;